home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / workbench / directoryopus4 / dopus4_src / library / dopuslib.a < prev    next >
Text File  |  2000-03-11  |  11KB  |  547 lines
  1. ; Directory Opus 4
  2. ; Original GPL release version 4.12
  3. ; Copyright 1993-2000 Jonathan Potter
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ; 
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ; 
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ; 
  19. ; All users of Directory Opus 4 (including versions distributed
  20. ; under the GPL) are entitled to upgrade to the latest version of
  21. ; Directory Opus version 5 at a reduced price. Please see
  22. ; http://www.gpsoft.com.au for more information.
  23. ;
  24. ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25. ; the existing commercial status of Directory Opus 5.
  26.  
  27.  
  28.     SECTION code
  29.  
  30.     INCLUDE "exec/types.i"
  31.     INCLUDE "exec/initializers.i"
  32.     INCLUDE "exec/libraries.i"
  33.     INCLUDE "exec/lists.i"
  34.     INCLUDE "exec/alerts.i"
  35.     INCLUDE "exec/resident.i"
  36.     INCLUDE "exec/ports.i"
  37.     INCLUDE "exec/io.i"
  38.     INCLUDE "libraries/dos.i"
  39.     INCLUDE "graphics/rastport.i"
  40.  
  41.     INCLUDE "asmsupp.i"
  42.     INCLUDE "dopusbase.i"
  43.  
  44. * Functions.a
  45.  
  46.     XREF endcode
  47.     XREF GetWBScreen
  48.     XREF Seed
  49.     XREF Random
  50.     XREF StrToUpper
  51.     XREF StrToLower
  52.     XREF DisableGadget
  53.     XREF EnableGadget
  54.     XREF GhostGadget
  55.     XREF _SwapMem
  56.     XREF _LSprintf
  57.     XREF LSprintf
  58.     XREF LCreateExtIO
  59.     XREF LCreatePort
  60.     XREF LDeleteExtIO
  61.     XREF LDeletePort
  62.     XREF LToUpper
  63.     XREF LToLower
  64.     XREF LStrCat
  65.     XREF LStrnCat
  66.     XREF LStrCpy
  67.     XREF LStrnCpy
  68.     XREF LStrCmpI
  69.     XREF LStrnCmpI
  70.     XREF LStrCmp
  71.     XREF LStrnCmp
  72.  
  73. * Functions2.a
  74.  
  75.     XREF BtoCStr
  76.     XREF ActivateStrGad
  77.     XREF RefreshStrGad
  78.  
  79. * Graphics.a
  80.  
  81.     XREF Do3DBox
  82.     XREF Do3DStringBox
  83.     XREF Do3DCycleBox
  84.     XREF DrawCheckMark
  85.     XREF HiliteGad
  86.  
  87. * Filereq.c
  88.  
  89.     XREF _DoFileRequest
  90.     XREF _DoSetBusyPointer
  91.  
  92. * Wildcard.c
  93.  
  94.     XREF _DoParsePattern
  95.     XREF _DoMatchPattern
  96.  
  97. * Dosstuff.c
  98.  
  99.     XREF _DoAssign
  100.     XREF _DoBaseName
  101.     XREF _DoCompareLock
  102.     XREF _DoPathName
  103.     XREF _DoSendPacket
  104.     XREF _DoTackOn
  105.     XREF _DoStampToStr
  106.     XREF _DoStrToStamp
  107.     XREF _DoAllocRemember
  108.     XREF _DoFreeRemember
  109.     XREF _DoFreeRemEntry
  110.     XREF _DoCompareDate
  111.     XREF _DoDoArrow
  112.     XREF _DoStrCombine
  113.     XREF _DoStrConcat
  114.     XREF _DoDecode_RLE
  115.  
  116. * Dosstuff2.c
  117.  
  118.     XREF _DoSearchPathList
  119.     XREF _DoCheckExist
  120.     XREF _DoRawkeyToStr
  121.     XREF _DoDoRMBGadget
  122.     XREF _DoAddGadgets
  123.     XREF _DoCheckNumGad
  124.     XREF _DoCheckHexGad
  125.     XREF _DoAtoh
  126.     XREF _DoDoSimpleRequest
  127.     XREF _DoDoCycleGadget
  128.     XREF _DoDrawRadioButton
  129.     XREF _DoGetButtonImage
  130.     XREF _DoGetCheckImage
  131.     XREF _DoUScoreText
  132.     XREF _DoDo3DFrame
  133.     XREF _DoDoGlassImage
  134.  
  135. * Dosstuff3.c
  136.  
  137.     XREF _DoReadConfig
  138.     XREF _DoSaveConfig
  139.     XREF _DoDefaultConfig
  140.     XREF _DoGetDevices
  141.     XREF _DoAssignGadget
  142.     XREF _DoAssignMenu
  143.     XREF _DoFreeConfig
  144.     XREF _DoCheckConfig
  145.     XREF _DoFindSystemFile
  146.  
  147. * Listview.c
  148.  
  149.     XREF _DoAddListView
  150.     XREF _DoListViewIDCMP
  151.     XREF _DoRemoveListView
  152.     XREF _DoRefreshListView
  153.     XREF _DoFixSliderBody
  154.     XREF _DoFixSliderPot
  155.     XREF _DoGetSliderPos
  156.     XREF _DoShowSlider
  157.  
  158. * Requesters.c
  159.  
  160.     XREF _R_OpenRequester
  161.     XREF _R_CloseRequester
  162.     XREF _R_AddRequesterObject
  163.     XREF _R_RefreshRequesterObject
  164.     XREF _R_ObjectText
  165.  
  166. * Language.c
  167.  
  168.     XREF _DoReadStringFile
  169.     XREF _DoFreeStringFile
  170.  
  171. * Borders.c
  172.  
  173.     XREF _DoAddGadgetBorders
  174.     XREF _DoCreateGadgetBorders
  175.     XREF _DoSelectGadget
  176.  
  177. * Menus.c
  178.  
  179.     XREF _DoFSSetMenuStrip
  180.  
  181. * Chip data
  182.  
  183.     XREF _pdb_cycletop
  184.     XREF _pdb_cyclebot
  185.     XREF _pdb_check
  186.  
  187. * Objects
  188.  
  189.     XREF _SysBase
  190.     XREF _DOpusBase
  191.     XREF _IntuitionBase
  192.     XREF _GfxBase
  193.     XREF _DOSBase
  194.     XREF _LayersBase
  195.     XREF ___MathIeeeSingBasBase
  196.  
  197. start:
  198.     moveq #0,d0
  199.     rts
  200.  
  201. romtag:
  202.     dc.w RTC_MATCHWORD
  203.     dc.l romtag
  204.     dc.l endcode
  205.     dc.b RTF_AUTOINIT
  206.     dc.b VERSION
  207.     dc.b NT_LIBRARY
  208.     dc.b 0
  209.     dc.l dopusname
  210.     dc.l idstring
  211.     dc.l init
  212.  
  213. VERSION  equ 22
  214. REVISION equ 6
  215.  
  216. dopusname:
  217.     DOPUSNAME
  218.  
  219. idstring:
  220.     dc.b 'dopus.library 22.6 (4 Mar 2000) recompiled under GPL license by Jacek Rzeuski',13,10,0
  221.  
  222. dosname:
  223.     dc.b 'dos.library',0
  224. intuitionname:
  225.     dc.b 'intuition.library',0
  226. graphicsname:
  227.     dc.b 'graphics.library',0
  228. layersname:
  229.     dc.b 'layers.library',0
  230. mathieeesingbasname:
  231.     dc.b 'mathieeesingbas.library',0
  232.     ds.w 0
  233.  
  234. init:
  235.     dc.l DOpusBase_SIZEOF
  236.     dc.l functable
  237.     dc.l datatable
  238.     dc.l initroutine
  239.  
  240. functable:
  241.     dc.l Open
  242.     dc.l Close
  243.     dc.l Expunge
  244.     dc.l Null
  245.     dc.l _DoFileRequest
  246.     dc.l Do3DBox
  247.     dc.l Do3DStringBox
  248.     dc.l Do3DCycleBox
  249.     dc.l _DoDoArrow
  250.     dc.l LSprintf
  251.     dc.l LCreateExtIO
  252.     dc.l LCreatePort
  253.     dc.l LDeleteExtIO
  254.     dc.l LDeletePort
  255.     dc.l LToUpper
  256.     dc.l LToLower
  257.     dc.l LStrCat
  258.     dc.l LStrnCat
  259.     dc.l LStrCpy
  260.     dc.l LStrnCpy
  261.     dc.l LStrCmp
  262.     dc.l LStrnCmp
  263.     dc.l LStrCmpI
  264.     dc.l LStrnCmpI
  265.     dc.l _DoStrCombine
  266.     dc.l _DoStrConcat
  267.     dc.l LParsePattern
  268.     dc.l LMatchPattern
  269.     dc.l LParsePatternI
  270.     dc.l LMatchPatternI
  271.     dc.l BtoCStr
  272.     dc.l _DoAssign
  273.     dc.l _DoBaseName
  274.     dc.l _DoCompareLock
  275.     dc.l _DoPathName
  276.     dc.l _DoSendPacket
  277.     dc.l _DoTackOn
  278.     dc.l _DoStampToStr
  279.     dc.l _DoStrToStamp
  280.     dc.l _DoAddListView
  281.     dc.l _DoListViewIDCMP
  282.     dc.l _DoRefreshListView
  283.     dc.l _DoRemoveListView
  284.     dc.l DrawCheckMark
  285.     dc.l FixSliderBody
  286.     dc.l FixSliderPot
  287.     dc.l GetSliderPos
  288.     dc.l _DoAllocRemember
  289.     dc.l _DoFreeRemember
  290.     dc.l _DoSetBusyPointer
  291.     dc.l GetWBScreen
  292.     dc.l _DoSearchPathList
  293.     dc.l _DoCheckExist
  294.     dc.l _DoCompareDate
  295.     dc.l Seed
  296.     dc.l Random
  297.     dc.l StrToUpper
  298.     dc.l StrToLower
  299.     dc.l _DoRawkeyToStr
  300.     dc.l _DoDoRMBGadget
  301.     dc.l _DoAddGadgets
  302.     dc.l ActivateStrGad
  303.     dc.l RefreshStrGad
  304.     dc.l _DoCheckNumGad
  305.     dc.l _DoCheckHexGad
  306.     dc.l _DoAtoh
  307.     dc.l HiliteGad
  308.     dc.l _DoDoSimpleRequest
  309.     dc.l _DoReadConfig
  310.     dc.l _DoSaveConfig
  311.     dc.l _DoDefaultConfig
  312.     dc.l _DoGetDevices
  313.     dc.l _DoAssignGadget
  314.     dc.l _DoAssignMenu
  315.     dc.l _DoFindSystemFile
  316.     dc.l _DoDo3DFrame
  317.     dc.l _DoFreeConfig
  318.     dc.l _DoDoCycleGadget
  319.     dc.l _DoUScoreText
  320.     dc.l DisableGadget
  321.     dc.l EnableGadget
  322.     dc.l GhostGadget
  323.     dc.l _DoDrawRadioButton
  324.     dc.l _DoGetButtonImage
  325.     dc.l _DoShowSlider
  326.     dc.l _DoCheckConfig
  327.     dc.l _DoGetCheckImage
  328.     dc.l _R_OpenRequester
  329.     dc.l _R_CloseRequester
  330.     dc.l _R_AddRequesterObject
  331.     dc.l _R_RefreshRequesterObject
  332.     dc.l DoObjectText
  333.     dc.l _DoDoGlassImage
  334.     dc.l _DoDecode_RLE
  335.     dc.l _DoReadStringFile
  336.     dc.l _DoFreeStringFile
  337.     dc.l _DoFreeRemEntry
  338.     dc.l _DoAddGadgetBorders
  339.     dc.l _DoCreateGadgetBorders
  340.     dc.l _DoSelectGadget
  341.     dc.l _DoFSSetMenuStrip
  342.     dc.l -1
  343.  
  344. datatable:
  345.     INITBYTE LN_TYPE,NT_LIBRARY
  346.     INITLONG LN_NAME,dopusname
  347.     INITBYTE LIB_FLAGS,LIBF_SUMUSED!LIBF_CHANGED
  348.     INITWORD LIB_VERSION,VERSION
  349.     INITWORD LIB_REVISION,REVISION
  350.     INITLONG LIB_IDSTRING,idstring
  351.     dc.l 0
  352.  
  353. initroutine:
  354.     move.l a5,-(sp)
  355.     move.l d0,a5
  356.     move.l a6,db_ExecBase(a5)
  357.     move.l a6,_SysBase
  358.     move.l a0,db_SegList(a5)
  359.  
  360.     move.l a5,_DOpusBase
  361.  
  362.     lea dosname(pc),a1
  363.     moveq.l #0,d0
  364.     move.l 4,a6
  365.     jsr _LVOOpenLibrary(a6)
  366.     move.l d0,db_DOSBase(a5)
  367.     move.l d0,_DOSBase
  368.  
  369.     lea intuitionname(pc),a1
  370.     moveq.l #0,d0
  371.     jsr _LVOOpenLibrary(a6)
  372.     move.l d0,db_IntuitionBase(a5)
  373.     move.l d0,_IntuitionBase
  374.  
  375.     lea graphicsname(pc),a1
  376.     moveq.l #0,d0
  377.     jsr _LVOOpenLibrary(a6)
  378.     move.l d0,db_GfxBase(a5)
  379.     move.l d0,_GfxBase
  380.  
  381.     lea layersname(pc),a1
  382.     moveq.l #0,d0
  383.     jsr _LVOOpenLibrary(a6)
  384.     move.l d0,db_LayersBase(a5)
  385.     move.l d0,_LayersBase
  386.  
  387.     lea mathieeesingbasname(pc),a1
  388.     moveq.l #0,d0
  389.     jsr _LVOOpenLibrary(a6)
  390. ;   move.l d0,db_MathIeeeSingBasBase(a5)
  391.     move.l d0,___MathIeeeSingBasBase
  392.  
  393. ;   jsr _init_dopus_library
  394.  
  395.     lea.l _pdb_cycletop,a0
  396.     move.l a0,pdb_cycletop(a5)
  397.  
  398.     lea.l _pdb_cyclebot,a0
  399.     move.l a0,pdb_cyclebot(a5)
  400.  
  401.     lea.l _pdb_check,a0
  402.     move.l a0,pdb_check(a5)
  403.  
  404.     move.l #0,pdb_Flags(a5)
  405.  
  406.     move.l 4,a6
  407.     move.l a5,d0
  408.     move.l (sp)+,a5
  409.     rts
  410.  
  411. Open:
  412.     addq.w #1,LIB_OPENCNT(a6)
  413.     bclr #LIBB_DELEXP,db_Flags(a6)
  414.     move.l a6,d0
  415.     rts
  416.  
  417. Close:
  418.     moveq.l #0,d0
  419.     subq.w #1,LIB_OPENCNT(a6)
  420.     bne.s   stillopen
  421.     btst #LIBB_DELEXP,db_Flags(a6)
  422.     beq.s   stillopen
  423.     bsr Expunge
  424. stillopen:
  425.     rts
  426.  
  427. Expunge:
  428.     movem.l d2/a5/a6,-(sp)
  429.     move.l a6,a5
  430.     tst.w   LIB_OPENCNT(a5)
  431.     beq.s   notopen
  432.     bset #LIBB_DELEXP,db_Flags(a5)
  433.     moveq.l #0,d0
  434.     bra expungeend
  435. notopen:
  436.     move.l db_SegList(a5),d2
  437.     move.l a5,a1
  438.     move.l 4,a6
  439.     jsr _LVORemove(a6)
  440.  
  441.     move.l db_DOSBase(a5),a1
  442.     jsr _LVOCloseLibrary(a6)
  443.     move.l db_IntuitionBase(a5),a1
  444.     jsr _LVOCloseLibrary(a6)
  445.     move.l db_GfxBase(a5),a1
  446.     jsr _LVOCloseLibrary(a6)
  447.     move.l db_LayersBase(a5),a1
  448.     jsr _LVOCloseLibrary(a6)
  449.  
  450.     moveq.l #0,d0
  451.     move.l a5,a1
  452.     move.w LIB_NEGSIZE(a5),d0
  453.     sub.l d0,a1
  454.     add.w LIB_POSSIZE(a5),d0
  455.     move.l 4,a6
  456.     jsr _LVOFreeMem(a6)
  457.     move.l d2,d0
  458.  
  459. expungeend:
  460.     movem.l (sp)+,d2/a5/a6
  461.     rts
  462.  
  463. Null:
  464.     moveq.l #0,d0
  465.     rts
  466.  
  467. LParsePattern:
  468.     moveq.l #0,d0
  469.     bra doparse
  470. LParsePatternI:
  471.     moveq.l #1,d0
  472. doparse:
  473.     movem.l a2-a6/d2-d7,-(sp)
  474.     move.l d0,-(sp)
  475.     move.l a1,-(sp)
  476.     move.l a0,-(sp)
  477.     jsr _DoParsePattern
  478.     add.l #12,sp
  479.     movem.l (sp)+,a2-a6/d2-d7
  480.     rts
  481.  
  482. LMatchPattern:
  483.     moveq.l #0,d0
  484.     bra domatch
  485. LMatchPatternI:
  486.     moveq.l #1,d0
  487. domatch:
  488.     movem.l a2-a6/d2-d7,-(sp)
  489.     move.l d0,-(sp)
  490.     move.l a1,-(sp)
  491.     move.l a0,-(sp)
  492.     jsr _DoMatchPattern
  493.     add.l #12,sp
  494.     movem.l (sp)+,a2-a6/d2-d7
  495.     rts
  496.  
  497. DoObjectText:
  498.     movem.l a2-a6/d2-d7,-(sp)
  499.     move.l d4,-(sp)
  500.     move.l a1,-(sp)
  501.     move.l d3,-(sp)
  502.     move.l d2,-(sp)
  503.     move.l d1,-(sp)
  504.     move.l d0,-(sp)
  505.     move.l a0,-(sp)
  506.     jsr _R_ObjectText
  507.     add.l #28,sp
  508.     movem.l (sp)+,a2-a6/d2-d7
  509.     rts
  510.  
  511. FixSliderBody:
  512.     movem.l a2-a6/d2-d7,-(sp)
  513.     move.l d2,-(sp)
  514.     move.l d1,-(sp)
  515.     move.l d0,-(sp)
  516.     move.l a1,-(sp)
  517.     move.l a0,-(sp)
  518.     jsr _DoFixSliderBody
  519.     add.l #20,sp
  520.     movem.l (sp)+,a2-a6/d2-d7
  521.     rts
  522.  
  523. FixSliderPot:
  524.     movem.l a2-a6/d2-d7,-(sp)
  525.     move.l d3,-(sp)
  526.     move.l d2,-(sp)
  527.     move.l d1,-(sp)
  528.     move.l d0,-(sp)
  529.     move.l a1,-(sp)
  530.     move.l a0,-(sp)
  531.     jsr _DoFixSliderPot
  532.     add.l #24,sp
  533.     movem.l (sp)+,a2-a6/d2-d7
  534.     rts
  535.  
  536. GetSliderPos:
  537.     movem.l a2-a6/d2-d7,-(sp)
  538.     move.l d1,-(sp)
  539.     move.l d0,-(sp)
  540.     move.l a0,-(sp)
  541.     jsr _DoGetSliderPos
  542.     add.l #12,sp
  543.     movem.l (sp)+,a2-a6/d2-d7
  544.     rts
  545.  
  546.     END
  547.